home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / elemlib.tst < prev    next >
Text File  |  1999-09-16  |  528b  |  15 lines
  1. t=toeplitz(1:5,1:2:7);t1=[1 3 5 7;2 1 3 5;3 2 1 3;4 3 2 1;5 4 3 2];
  2. if norm(t-t1)>10*%eps then pause,end
  3. t=toeplitz(1:5);t1=[1 2 3 4 5;2 1 2 3 4;3 2 1 2 3;4 3 2 1 2;5 4 3 2 1];
  4. if norm(t-t1)>10*%eps then pause,end
  5. if toeplitz([])<>[] then pause,end
  6.  
  7.  s=poly(0,'s');
  8. t=toeplitz([s s+1 s**2 1-s]);
  9. t1=[s 1+s s*s 1-s;1+s s 1+s s*s;s*s 1+s s 1+s;1-s s*s 1+s s]
  10. if norm(coeff(t-t1))>10*%eps then pause,end
  11.  
  12. t=toeplitz(['1','2','3','4']);
  13. t1=['1','2','3','4';'2','1','2','3';'3','2','1','2';'4','3','2','1']
  14. if t<>t1 then pause,end
  15.